exception Capacity_exceeded
type color = { obj : GMisc.label; str : string; }
val clr_default : color
type colorEntryCell = {
  hbox : GPack.box;
  color : color;
  entry : GEdit.entry;
}
val cec_default : colorEntryCell
type colorEntryList = {
  list : colorEntryCell array;
  mutable size : int;
  capacity : int;
}
val cel_default : colorEntryList
val is_empty : colorEntryList -> bool
val sizeofcel : colorEntryList -> int
val create :
  int -> GPack.box -> GMisc.label -> string -> GEdit.entry -> colorEntryList
val insert :
  colorEntryList -> GPack.box -> GMisc.label -> string -> GEdit.entry -> unit
val change_entry_content : colorEntryList -> int -> string -> unit
val generate : colorEntryList -> GPack.box -> unit
val delete : colorEntryList -> 'a -> unit
val write_alt : string -> colorEntryList -> unit
